complex number function library

DOUBLE   = DCABS (DCOMPLEX z)
DCOMPLEX = DCACOS (DCOMPLEX z)
DOUBLE   = DCARG (DCOMPLEX z)
DCOMPLEX = DCASIN (DCOMPLEX z)
DCOMPLEX = DCATAN (DCOMPLEX z)
DCOMPLEX = DCCONJ (DCOMPLEX z)
DCOMPLEX = DCCOS (DCOMPLEX z)
DCOMPLEX = DCCOSH (DCOMPLEX z)
DCOMPLEX = DCEXP (DCOMPLEX z)
DCOMPLEX = DCLOG (DCOMPLEX z)
DCOMPLEX = DCLOG10 (DCOMPLEX z)
DOUBLE   = DCNORM (DCOMPLEX z)
DCOMPLEX = DCPOLAR (DOUBLE magnitude, DOUBLE angle)
DCOMPLEX = DCPOWERCC (DCOMPLEX z, DCOMPLEX n)
DCOMPLEX = DCPOWERCR (DCOMPLEX z, DOUBLE n)
DCOMPLEX = DCPOWERRC (DOUBLE z, DCOMPLEX n)
DCOMPLEX = DCRMUL (DCOMPLEX x, DOUBLE y)
DCOMPLEX = DCSIN (DCOMPLEX z)
DCOMPLEX = DCSINH (DCOMPLEX z)
DCOMPLEX = DCSQRT (DCOMPLEX z)
DCOMPLEX = DCTAN (DCOMPLEX z)
DCOMPLEX = DCTANH (DCOMPLEX z)

SINGLE   = SCABS (SCOMPLEX z)
SCOMPLEX = SCACOS (SCOMPLEX z)
SINGLE   = SCARG (SCOMPLEX z)
SCOMPLEX = SCASIN (SCOMPLEX z)
SCOMPLEX = SCATAN (SCOMPLEX z)
SCOMPLEX = SCCONJ (SCOMPLEX z)
SCOMPLEX = SCCOS (SCOMPLEX z)
SCOMPLEX = SCCOSH (SCOMPLEX z)
SCOMPLEX = SCEXP (SCOMPLEX z)
SCOMPLEX = SCLOG (SCOMPLEX z)
SCOMPLEX = SCLOG10 (SCOMPLEX z)
SINGLE   = SCNORM (SCOMPLEX z)
SCOMPLEX = SCPOLAR (SINGLE magnitude, SINGLE angle)
SCOMPLEX = SCPOWERCC (SCOMPLEX z, SCOMPLEX n)
SCOMPLEX = SCPOWERCR (SCOMPLEX z, SINGLE n)
SCOMPLEX = SCPOWERRC (SINGLE z, SCOMPLEX n)
SCOMPLEX = SCRMUL (SCOMPLEX x, SINGLE y)
SCOMPLEX = SCSIN (SCOMPLEX z)
SCOMPLEX = SCSINH (SCOMPLEX z)
SCOMPLEX = SCSQRT (SCOMPLEX z)
SCOMPLEX = SCTAN (SCOMPLEX z)
SCOMPLEX = SCTANH (SCOMPLEX z)